home *** CD-ROM | disk | FTP | other *** search
/ William Shakespeare - The Complete Works / William Shakespeare - The Complete Works on CD-ROM.iso / library / exe / compile.bas < prev    next >
Encoding:
BASIC Source File  |  1994-07-14  |  387 b   |  25 lines
  1. OPEN "TEXT.DGW" FOR INPUT AS #1
  2. OPEN "text.cmp" FOR OUTPUT AS #2
  3. DO
  4. LINE INPUT #1, a$
  5. LOOP UNTIL a$ = "{0}"
  6. PRINT #2, a$
  7. DO
  8. au$ = ""
  9. ti$ = ""
  10. te$ = ""
  11. DO
  12. LINE INPUT #1, a$
  13. IF INSTR(a$, "TITLE_") THEN ti$ = MID$(a$, 7, 100)
  14. IF INSTR(a$, "TEXT_") THEN te$ = MID$(a$, 6, 100)
  15. LOOP UNTIL INSTR(a$, "{")
  16. PRINT #2, ti$
  17. PRINT #2, te$
  18. PRINT #2, a$
  19.  
  20. LOOP UNTIL EOF(1)
  21.  
  22.  
  23.  
  24.  
  25.